#!/usr/bin/perl -w
use strict;

my $s="";
my $tot=$ARGV[0];
while ( <stdin> ) {
    my $line=$_;
    $s.=$line;
    $line=~/ *(\d+) /;
    $tot-=$1;
}

printf "%7.0f 0\n",$tot;
print $s;
